home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Oberon⁄F™ 1.1 / Obx / Mod / ParCmd (.txt) < prev    next >
Encoding:
Oberon Document  |  1996-01-05  |  2.1 KB  |  65 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Helvetica
  16. Helvetica
  17. Helvetica
  18. MODULE ObxParCmd;
  19.     IMPORT Dialog, Models, Controls, TextModels, TextMappers, Out;
  20.     PROCEDURE Connect (VAR s: TextMappers.Scanner; VAR done: BOOLEAN);
  21.         VAR c: Models.Context;
  22.     BEGIN
  23.         done := FALSE;
  24.         IF Controls.par # NIL THEN
  25.             c := Controls.par.context;    (* the context of an open view is never NIL *)
  26.             WITH c: TextModels.Context DO
  27.                 s.ConnectTo(c.ThisModel()); s.SetPos(c.Pos() + 1); s.Scan;
  28.                 done := TRUE
  29.             ELSE
  30.             END
  31.         END
  32.     END Connect;
  33.     PROCEDURE Do0*;
  34.         VAR s: TextMappers.Scanner; done: BOOLEAN;
  35.     BEGIN
  36.         Connect(s, done);
  37.         IF done THEN
  38.             IF s.type = TextMappers.string THEN
  39.                 Out.String(s.string); Out.Ln    (* write string after button to log *)
  40.             END
  41.         END
  42.     END Do0;
  43.     PROCEDURE Do1*;
  44.         VAR s: TextMappers.Scanner; done: BOOLEAN; res: LONGINT;
  45.     BEGIN
  46.         Connect(s, done);
  47.         IF done THEN
  48.             IF s.type = TextMappers.string THEN
  49.                 Dialog.Call(s.string, " ", res)    (* execute string after button as a command sequence *)
  50.             END
  51.         END
  52.     END Do1;
  53. END ObxParCmd.
  54. TextControllers.StdCtrlDesc
  55. TextControllers.ControllerDesc
  56. Containers.ControllerDesc
  57. Controllers.ControllerDesc
  58. TextRulers.StdRulerDesc
  59. TextRulers.RulerDesc
  60. TextRulers.StdStyleDesc
  61. TextRulers.StyleDesc
  62. TextRulers.AttributesDesc
  63. Helvetica
  64. Documents.ControllerDesc
  65.